home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 April / Ahoy_Magazine_86-04_1986_Double_L.d64 / short form 1040a (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  2.1 KB  |  81 lines
  1. 10 print"form 1040a calculator"
  2. 20 print"copyright 1986 cheryl peterson"
  3. 30 print"print an instruction list for filling out 1040a when finished?"
  4. 40 input"y[146]es or n[146]o";q$
  5. 45 if q$<>"y"then90
  6. 50 input"to s[146]creen or p[146]rinter";q2$
  7. 90 rem input statements
  8. 100 input"how many exemptions are you claiming";x
  9. 200 input"income from w-2 forms";w
  10. 300 input"interest collected this year";i
  11. 400 input"dividends collected this year";d
  12. 500 input"exclusions";e
  13. 600 input"taxable unemployment compensation";u
  14. 700 input"contributions to politicians this year";p
  15. 800 input"federal income tax withheld";f
  16. 900 input"earned income credit";c
  17. 1100 gosub 2100
  18. 1140 print"[147]"
  19. 1150 print"enter ";gi;"on line 10 of the tax form."
  20. 1160 print"enter ";x2;"on line 11 of the tax form."
  21. 1170 print"enter ";tn;"on line 12 of the tax form."
  22. 1200 print"look up the amount of taxes due"
  23. 1210 print"on $";tn;"in the tax tables."
  24. 1300 input"taxes due according to table";td
  25. 1400 input"advanced earned income credit";a
  26. 1500 gosub 2600
  27. 1550 print"[147]"
  28. 1560 if q2$<>"p"and q$<>"n"then gosub 1930
  29. 1570 if q2$="p" then gosub 1921
  30. 1600 if tp>tt then r=tp-tt
  31. 1650 if tp=tt then 1800
  32. 1660 if tp<tt then 1900
  33. 1700 print"your total refund is $";r
  34. 1710 print"enter this amount on line 17."
  35. 1797 if cl<>1 then 1799
  36. 1798 print#4:close4
  37. 1799 end
  38. 1800 print"you seem to have come out even."
  39. 1810 print"enter 0 on lines 17 and 18."
  40. 1897 if cl<>1 then 1799
  41. 1898 print#4:close4
  42. 1899 end
  43. 1900 r=tt-tp
  44. 1910 print"you owe the government $";r
  45. 1915 print"enter this amount on line 18."
  46. 1917 if cl<>1 then 1799
  47. 1918 print#4:close4
  48. 1920 end
  49. 1921 if q$<>"y"then return
  50. 1922 open4,4:cmd4
  51. 1930 print"fill out questions 1-5 as appropriate."
  52. 1931 print"enter";x;"in box number 6."
  53. 1932 print"enter";w;"in box number 7."
  54. 1940 print"enter";i;"in box number 8a."
  55. 1941 print"enter";d;"in box number 8b."
  56. 1942 print"enter";z;"in box number 8c."
  57. 1943 print"enter";e;"in box number 8d."
  58. 1944 print"enter";y;"in box number 8e."
  59. 1955 print"enter";gi;"in box number 10."
  60. 1960 print"enter";x2;"in box number 11."
  61. 1965 print"enter";tn;"in box number 12."
  62. 1970 print"enter";p;"in box number 13a."
  63. 1971 print"enter";f;"in box number 13b."
  64. 1972 print"enter";c;"in box number 13c."
  65. 1975 print"enter";tp;"in box number 14."
  66. 1980 print"enter";td;"in box number 15a."
  67. 1985 print"enter";a;"in box number 15b."
  68. 1990 print"enter";tt;"in box number 16."
  69. 1997 if q2$="p" then cl=1
  70. 1998 return
  71. 1999 end
  72. 2000 rem computations
  73. 2100 z=i+d:y=z-e:if y<0 then y=0
  74. 2200 gi=w+y+u
  75. 2300 x2=1000*x
  76. 2400 tn=gi-x2
  77. 2500 tp=p+f+c
  78. 2550 return
  79. 2600 tt=td+a
  80. 2700 return
  81.